home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / TrafficPause.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  65 lines
  1. /**
  2.  **  $VER: TrafficPause 1.0 (01-Jul-94) Hanns Holger Rutz
  3.  **  E-Mail: HOLGI@istda.north.de
  4.  **
  5.  **  Bestellt alle Bretter oder bestellt sie ab
  6.  **  (z. B., wenn man mal ein paar Wochen weg ist)
  7.  **/
  8.  
  9. MAPSaddr = "MAPS@istda.north.de"    /* wo ist MAPS zu erreichen? */
  10. TempFile = "T:TrafficPause.tmp"     /* temporäre Datei für MAPS Mail */
  11.  
  12. /*-------------------------------------------------------------------------*/
  13.  
  14. ReqHeader = "TrafficPause:"||"0A0A"x
  15. ReqBody   = "Temporäre Datei"||"0A"x||'"'||TempFile||'"'||"0A"x||"konnte nicht angelegt werden!"
  16.  
  17. OPTIONS RESULTS
  18. PARSE ARG ZPPort
  19. IF ZPPort == "" THEN ZPPort = "ZPoint"
  20. ADDRESS VALUE ZPPort
  21.  
  22. WHICHLEVEL
  23. IF RESULT ~= "BOARDMENU" THEN BOARDMENU
  24.  
  25. REQUESTRESPONSE ReqHeader||"Alle Bretter abbestellen?"
  26. IF RC THEN Betreff = "DEL"
  27. ELSE DO
  28.  REQUESTRESPONSE ReqHeader||"Alle Bretter bestellen?"
  29.  IF ~RC THEN EXIT
  30.  Betreff = "ADD"
  31. END
  32.  
  33. IF ~OPEN( TempFH, TempFile, "W" ) THEN DO
  34.  REQUESTNOTIFY ReqHeader||ReqBody
  35.  EXIT
  36. END
  37. JUMPTOBOARD NUMBER 3
  38. COUNT ALL
  39. DO i = 4 TO RESULT
  40.  DOWN
  41.  BOARDINFO NAMES
  42.  Brett = RESULT
  43.  IF WRITELN( TempFH, Brett ) ~= LENGTH( Brett ) + 1 THEN DO
  44.   REQUESTNOTIFY ReqHeader||ReqBody
  45.   EXIT
  46.  END
  47. END
  48. IF ~CLOSE( TempFH ) THEN DO
  49.  REQUESTNOTIFY ReqHeader||ReqBody
  50.  EXIT
  51. END
  52.  
  53. JUMPTOBOARD NUMBER 1
  54. ENTERBOARD
  55. WRITEMESSAGE TempFile MAPSaddr Betreff
  56. IF RESULT = "" THEN DO
  57.  REQUESTNOTIFY ReqHeader||"Konnte Nachricht nicht"||"0A"x||"an MAPS verschicken!"
  58.  EXIT
  59. END
  60. COUNT ALL
  61. JUMPTOMESSAGE NUMBER RESULT
  62. ADDRESS COMMAND "C:Delete <>NIL:" TempFile "QUIET"
  63.  
  64. /* EndOfFile */
  65.